home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 151-175 / disk_156 / flex / flex2 / gnu.lib.src / xcalloc.c < prev    next >
C/C++ Source or Header  |  1992-05-06  |  780b  |  35 lines
  1. /*
  2.  * xcalloc -- a "safe" calloc
  3.  */
  4.  
  5. char *
  6. xcalloc (number, size)
  7.      int number, size;
  8. {
  9.   extern char *malloc ();
  10.   extern void memory_full();
  11.   register int total = number * size;
  12.   register char *ptr = malloc (total);
  13.   if (ptr != 0)
  14.     {
  15.       if (total > 100)
  16.         bzero (ptr, total);
  17.       else {
  18.         /* It's not too long, so loop, zeroing by longs.
  19.            It must be safe because malloc values are always well aligned.  */
  20.         register long *zp = (long *) ptr;
  21.         register long *zl = (long *) (ptr + total - 4);
  22.         register int i = total - 4;
  23.         while (zp < zl)
  24.           *zp++ = 0;
  25.         if (i < 0)
  26.           i = 0;
  27.         while (i < total)
  28.           ptr[i++] = 0;
  29.       }
  30.       return ptr;
  31.     }
  32.   memory_full ();
  33.   /*NOTREACHED*/
  34. }
  35.